package Class::Value::Test;

# $Id: Test.pm 13666 2007-11-07 07:53:28Z gr $

use strict;
use warnings;
use Test::More;


our $VERSION = '0.04';


use base 'Data::Semantic::Test';


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - Testing value objects

=head1 SYNOPSIS

    {% p.package %}->new;

=head1 DESCRIPTION

This is just a subclass of L<Data::Semantic::Test> so that specific value
object test classes can inherit from it. They don't inherit from
Data::Semantic::Test directly because methods common to all value class tests
might emerge and they'd go into this class.

{% p.write_inheritance %}

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% PROCESS standard_pod %}

=cut

